home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 20 / 64er_Magazin_Sonderheft_20_19xx_Markt__Technik_de_Side_A.d64 / listing 11 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  476b  |  13 lines
  1. 10 printchr$(147)       :rem bildschirm loeschen
  2. 20 poke 2040,13         :rem daten sprite 0 aus block 13
  3. 30 for i=0 to 62:poke 832+i,129:next:rem spritedaten eintragen
  4. 40 v=53248              :rem startadresse des videochip
  5. 50 poke v+21,1          :rem sprite 0 einschalten
  6. 60 poke v+39,1:poke v+23,1:poke v+29,1:rem sprite 0 farbe geben und vergroessern
  7. 70 poke v+1,100         :rem sprite 0 y-position
  8. 80 j=488
  9. 90 hx=int(j/256):lx=j-256*hx
  10. 100 poke v,lx:poke v+16,hx
  11. 110 j=j+1:if j>511 then j=0
  12. 120 if j>488 or j<348 then 90
  13.